sHelp
                                     MIS.CPT.REQ
     i   2
   mis.cpt.req.main
     mis.cpt.req.code.type.order
     mis.cpt.req.codes
       mis.cpt.req.eff.date
         mis.cpt.req.acc.diag
     mis.cpt.req.queries
       mis.cpt.req.mult.queries
   temp.provider.address
     mis.cpt.req.orders
       mis.cpt.req.results
         mis.cpt.req.res.codes

 Ì     i   2
mis.cpt.req.main    (main) 
[mnemonic]
\GSQ[gsq]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mnemonic                    10 FREE     L                 gsq                                                         
 active                       1 YN       L                 \GSQ[gsq]|0                                                 
 code.type                   10 FREE     L                 \GSQ[gsq]|2                                                 
 description                 60 FREE     L                 \GSQ[gsq]|1                                                 
 description.40              40 FREE     L                 VAL=(@MIS.CPT.REQ.description$40)                           
 last.update                 10 PINT     R                 \GSQ[gsq]UPD                                                
 Ì      i   2
mis.cpt.req.code.type.order    (code.type.order) 
[mnemonic, code.type.check.sequence]
\GSQ[gsq]CTO[gsqCS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 code.type.check.sequence     2 PINT     R                 gsqCS                                                       
 code.types                  10 FREE     L                 \GSQ[gsq]CTO[gsqCS]|0                                       
 Ì      i   2
mis.cpt.req.codes    (codes) 
[mnemonic, code]
\GSQ[gsq]C[gsqC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 code                        10 FREE     L                 gsqC                                                        
 make.effective.date.req      0 FREE     L                 \GSQ[gsq]C[gsqC]|0                                          
 Ì      i   2
mis.cpt.req.eff.date    (eff.dates) 
[mnemonic,code, eff.date]
\GSQ[gsq]C[gsqC]D[gsqD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 eff.date                     8 DATE     L                 gsqD                                                        
 Ì      i   2
mis.cpt.req.acc.diag    (acc.diagnoses) 
[mnemonic,code,eff.date, acc.diag]
\GSQ[gsq]C[gsqC]D[gsqD]AD[gsn]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 acc.diag                     7 FREE     L  MIS.DIAG       gsn                                                     
 Ì      i   2
mis.cpt.req.queries    (customer.defined.queries) 
[mnemonic, cd.query]
\GSQ[gsq]CD[ggv]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cd.query                    10 FREE     L  MIS.QUERY      ggv                                                     
 cd.response                 75 QRY.RESP L                 \GSQ[gsq]CD[ggv]|0                                          
 Ì      i   2
mis.cpt.req.mult.queries    (multiple.queries) 
[mnemonic,cd.query, cdm.seq.no]
\GSQ[gsq]CD[ggv]M[ggnM]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cdm.seq.no                   3 PINT     R                 ggnM                                                        
 cdm.response                75 QRY.RESP L                 \GSQ[gsq]CD[ggv]M[ggnM]|0                                   
 Ì     i   2
temp.provider.address    (order.addr) 
/GSQOD.ADDR

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 provider.addr1              45 FREE     L                 /GSQOD.ADDR|1                                               
 provider.addr2              45 FREE     L                 /GSQOD.ADDR|2                                               
 provider.addr3              45 FREE     L                 /GSQOD.ADDR|3                                               
 provider.addr4              45 FREE     L                 /GSQOD.ADDR|4                                               
 provider.mnemonic           10 FREE     L                 /GSQOD.ADDR|5                                               
 provider.name               30 NAME     L                 /GSQOD.ADDR|0                                               
 Ì     i   2
mis.cpt.req.orders    (orders) 
[sequence]
/GSQOD[gsqS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 sequence                     3 PINT     R                 gsqS                                                        
 covered.by                  10 FREE     L  MIS.INS.DICT   /GSQOD[gsqS]|7                                          
 get.diag                     1 PINT     R                 /GSQOD[gsqS]|4                                              
 order.desc                  40 FREE     L                 /GSQOD[gsqS]|3                                              
 order.diag                   7 FREE     L  MIS.DIAG       /GSQOD[gsqS]|5                                          
 order.exp                    1 YN       L                 /GSQOD[gsqS]|11                                             
 order.fail                   1 FREE     L                 /GSQOD[gsqS]|10                                             
 order.proc                  10 FREE     L                 /GSQOD[gsqS]|2                                              
 order.result                 2 PINT     R                 /GSQOD[gsqS]|6                                              
 order.status                10 FREE     L                 /GSQOD[gsqS]|8                                              
 override                     1 PINT     R                 /GSQOD[gsqS]|9                                              
 procedure                   10 FREE     L                 /GSQOD[gsqS]|1                                              
 reason                      22 FREE     L                 /GSQOD[gsqS]|12                                             
 ser.date                     8 DATE     L                 /GSQOD[gsqS]|0                                              
 Ì      i   2
mis.cpt.req.results    (result.data) 
[sequence, insurance]
/GSQOD[gsqS]RD[ggm]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 insurance                   10 FREE     L  MIS.INS.DICT   ggm                                                     
 diag.req                     1 YN       L                 /GSQOD[gsqS]RD[ggm]|0                                       
 exploded                     1 YN       L                 /GSQOD[gsqS]RD[ggm]|2                                       
 map.code.type                5 FREE     L                 /GSQOD[gsqS]RD[ggm]|1                                       
 max.price                   10 MONEY    R                 /GSQOD[gsqS]RD[ggm]|3                                       
 Ì      i   2
mis.cpt.req.res.codes    (result.codes) 
[sequence,insurance, mapped.code.seq]
/GSQOD[gsqS]RD[ggm]MC[gsqMC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 mapped.code.seq              3 PINT     R                 gsqMC                                                       
 bar.proc.desc               40 FREE     L                 /GSQOD[gsqS]RD[ggm]MC[gsqMC]|2                              
 mapped.codes                10 FREE     L                 /GSQOD[gsqS]RD[ggm]MC[gsqMC]|0                              
 pass.or.fail                 4 CHOICE   L                 /GSQOD[gsqS]RD[ggm]MC[gsqMC]|3                              
 price                       10 MONEY    R                 /GSQOD[gsqS]RD[ggm]MC[gsqMC]|1                              
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 mis.cpt.req.exp.chgs               [MIS.FACILITY.mnemonic,BAR.PROC.mnemonic,BAR.PROC.replace.code]
   bar.exp.proc.x                     \GSQEX[gqb,bd,bdR]

 mis.cpt.bar.proc.index             [MIS.FACILITY.mnemonic,BAR.PROC.alt.code.type,BAR.PROC.mnemonic,BAR.PROC.alt.cod
   bar.proc.x                         \GSQPX[gqb,bdAC,bd,bdED]

 mis.cpt.req.rw.fail.x              [sequence]
   rw.fail.index                      /GSQRX[gsqS]